NIBASC 'BEEPLEX ' Filename CON(4) #E208 File type NIBHEX 0 Flags NIBHEX 0 Copy code NIBHEX 4361 Creation time NIBHEX 228098 Creation date REL(5) FILEND FILEND *8002C ---------- File header end *8002D --LEX header-- CON(2) #A0 LEX ID CON(2) #02 Lowest token CON(2) #05 Highest token CON(5) #00000 NO linked LEX NIBHEX F NO speed table CON(4) #0032 Offset to text table CON(4) #0000 NO message table REL(5) o80187 Offset to Poll Handler *80046------MAIN TABLE------ CON(3) #000 Offset to text REL(5) o800A3 CHIRP execution code NIBHEX D char. nib *8004F CON(3) #00D Offset to text REL(5) o8015C MGUN execution code NIBHEX D char. nib *80058 CON(3) #018 Offset to text REL(5) o800BD SING execution code NIBHEX D char. nib *80061 CON(3) #023 Offset to text REL(5) o80100 ZAP execution code NIBHEX D char. nib *80069---MAIN TABLE END--- *8006A---Text table--- *8006A CON(1) #9 NIBASC 'CHIRP' CON(2) #02 Token *80077 CON(1) #7 NIBASC 'MGUN' CON(2) #03 Token *80082 CON(1) #7 NIBASC 'SING' CON(2) #04 Token *8008D CON(1) #5 NIBASC 'ZAP' CON(2) #05 Token NIBHEX 1FF Text table end *80098---------- REL(5) o801BF Offset to CHIRP decompile routine REL(5) o801C6 Offset to CHIRP parse routine *800A3--------------------CHIRP entry point o800A3 SETHEX GOSBVL #0EC5A =CHIRP GOVLNG #08A48 =NXTSTM REL(5) o801BF Offset to SING decompile routine REL(5) o801C6 Offset to SING parse routine *800BD--------------------SING entry point o800BD SETHEX C=0 W LCHEX 1A 26 msec R0=C LCHEX 2F 303 Hz first time R1=C o800D0 C=R1 P= 2 C=C+1 P add 128 to freq each loop; 3887 Hz is last GOC o800EF to GOVLNG #08A48 =NXTSTM R1=C D=C W C=R0 GOSBVL #0EB40 =BP+C C[A]=msec, D[A]=freq GOTO o800D0 o800EF GOVLNG #08A48 =NXTSTM REL(5) o801BF Offset to ZAP decompile routine REL(5) o801C6 Offset to ZAP parse routine *80100--------------------ZAP entry point o80100 SETHEX P= 0 C=0 W LCHEX 1A R0=C LCHEX F8F R1=C o80116 C=R1 P= 2 C=C-1 P GOC o80135 R1=C D=C W C=R0 GOSBVL #0EB40 =BP+C GOTO o80116 o80135 P= 0 C=0 A LCHEX 8F D=C A LCHEX 200 GOSBVL #0EB40 =BP+C GOVLNG #08A48 =NXTSTM REL(5) o801BF Offset to MGUN decompile routine REL(5) o801C6 Offset to MGUN parse routine *8015C--------------------MGUN entry point o8015C SETHEX P= 0 C=0 A LCHEX 6 R0=C o80168 C=R0 ?C=0 A GOYES o80180 to GOVLNG #08A48 =NXTSTM C=C-1 A R0=C GOSBVL #0EC5A =CHIRP GOTO o80168 o80180 GOVLNG #08A48 =NXTSTM *80187 Poll handler o80187 ?B=0 B GOYES o8018F GONC o801BD o8018F C=R3 D1=C A=R2 D1=D1- 14 CD1EX ?C